#Include 'Protheus.ch'


/*
+----------------------------------------------------------------------------+
!                             FICHA TECNICA DO PROGRAMA                      !
+----------------------------------------------------------------------------+
!Programa          ! F050CIRF                                                !
+------------------+---------------------------------------------------------+
!Descricao         ! Ponto de Entrada para alterar IR nas PJ                 !
!                  !                                                         !
!                  !                                                         !
+------------------+---------------------------------------------------------+
!Autor             ! SOMATI01 OTAVIO MENEGUELA                               !
+------------------+---------------------------------------------------------+
!OBS:              ! CRIADO PARAMETRO REI_RECIRF                             !
!                  !                                                         !
+------------------+---------------------------------------------------------+
!Data de Criacao   ! 07/12/12                                                !
+------------------+---------------------------------------------------------+
!   ATUALIZACOES                                                             !
+-------------------------------------------+-----------+-----------+--------+
!   Descricao detalhada da atualizacao      !Nome do    ! Analista  !Data da !
!                                           !Solicitante! Respons.  !Atualiz.!
+-------------------------------------------+-----------+-----------+--------+
!                                           !           !           !        !
!                                           !           !           !        !
+-------------------------------------------+-----------+-----------+--------+
*/


User Function F050CIRF()

_lValRet := M->E2_IRRF

// CRIADO PARAMETRO REI_RECIRF .T. OU .F.
// Recalcula IRF PJ Ctas a Pagar                     

If (SED->ED_CALCIRF == "S") .And. (M->E2_MULTNAT != "1") .And. (SA2->A2_CALCIRF <> "3") .And. GetMv("REI_RECIRF") //EMPRESA SIMPLES NACIONAL  

	If SA2->A2_TIPO == "F" .OR. SA2->A2_CALCIRF == "4" // PESSOA FISICA OU EMPRESA INDIVIDUAL 
		_lValRet := M->E2_IRRF
	ElseIf SA2->A2_TIPO == "J"
		_lValRet := NOROUND(M->E2_VALOR * SED->ED_PERCIRF / 100,2)
	EndIf

	_lValRet := IIF(_lValRet <= GetMv("MV_VLRETIR",,0),0,_lValRet)				

//	Alert("Novo IRF: "+str(_lValRet))

EndIf


Return(_lValRet)